10 PRINT"[147]"
20 PRINT:PRINT"WOULD YOU LIKE TO SCRATCH A FILE (Y/N)?"
30 GET A$
40 IF A$="Y" THEN 80
50 IF A$<>"N" THEN 30
60 PRINT:PRINT"BYE."
70 END
80 INPUT"FILE TO BE SCRATCHED";F$
90 OPEN 15,8,15
100 PRINT#15,"S0:";F$
110 INPUT#15,E,E$,F
120 CLOSE 15
130 PRINT:PRINT F;E$
140 GOTO 20